home *** CD-ROM | disk | FTP | other *** search
/ The Atari Compendium / The Atari Compendium (Toad Computers) (1994).iso / files / prgtools / langs / clisp-c.zoo / macros2.fas < prev    next >
Encoding:
CLISP byte-compiled Lisp program  |  1993-06-05  |  10.9 KB  |  218 lines
  1. (SYSTEM::VERSION '(SYSTEM::CLISP2 14. LISP:T 210292.))
  2. #Y(#:TOP-LEVEL-FORM-1 #13Y(00 00 00 00 00 01 D4 36 02 30 07 19 01) "SYSTEM")
  3. #Y(#:TOP-LEVEL-FORM-2
  4.    #18Y(00 00 00 00 00 01 D4 2D 01 D4 D6 C1 72 30 96 BE 19 01) TYPECASE
  5.    REMOVE-OLD-DEFINITIONS MACRO
  6.    #Y(TYPECASE
  7.       #119Y(00 01 00 01 00 08 AA 6A 63 D4 87 01 2D 0F 94 54 70 95 54 71 36 01
  8.             6A A4 5B AA 1A 80 45 AA 2D 01 19 03 D6 D7 8B 02 5A 02 A8 C2 52 16
  9.             01 1C 1E 5C 93 53 54 1B 01 C3 72 7B 01 16 01 1A 2A 92 53 1F 61 92
  10.             53 70 A8 02 52 1C 5F 16 01 1B 62 DA AB DB 95 53 70 73 02 73 03 93
  11.             53 54 1B 01 C6 72 7B 01 7A 00 92 20 58 16 01 DD AA AD 73 02 73 01
  12.             DE AB 30 65 72 59 03 19 07
  13.            )
  14.       2. MACRO-CALL-ERROR "Invalid clause in ~S: ~S" TYPECASE OTHERWISE (NIL)
  15.       TYPEP QUOTE (NIL) LET COND
  16.   )  )
  17. #Y(#:TOP-LEVEL-FORM-3
  18.    #18Y(00 00 00 00 00 01 D4 2D 01 D4 D6 C1 72 30 96 BE 19 01) CHECK-TYPE
  19.    REMOVE-OLD-DEFINITIONS MACRO
  20.    #Y(CHECK-TYPE
  21.       #110Y(00 01 00 01 00 08 D4 AB 6A 63 D5 88 02 2F 80 51 94 54 70 95 54 54
  22.             70 96 54 54 54 1B 80 48 00 14 36 01 6A A4 36 01 6A A4 D7 AA D8 D9
  23.             B0 DA B1 73 02 73 03 DB AD 73 02 73 03 DC DD DE 5B DF B4 B3 B5 66
  24.             05 0C B3 73 05 E1 5B E2 B3 66 03 0C E3 6B 02 1F E4 B2 E5 6B 02 1F
  25.             DB B0 73 02 AF 59 08 19 08 AA 2D 02 19 03 96 54 54 54 53 1A FF B1
  26.            )
  27.       3. 4. MACRO-CALL-ERROR TAGBODY WHEN TYPEP QUOTE GO CERROR
  28.       "You may input a new value." "~A~%The value is: ~S"
  29.       "The value of ~S should be ~:[of type ~S~;~:*~A~]." FORMAT WRITE-STRING
  30.       "~%New ~S: " (*QUERY-IO*) SETF ((READ *QUERY-IO*))
  31.   )  )
  32. #Y(#:TOP-LEVEL-FORM-4
  33.    #18Y(00 00 00 00 00 01 D4 2D 01 D4 D6 C1 72 30 96 BE 19 01) ASSERT
  34.    REMOVE-OLD-DEFINITIONS MACRO
  35.    #Y(ASSERT
  36.       #181Y(00 01 00 01 00 08 AA 6A 63 D4 87 01 2D 80 54 94 54 70 95 54 54 1B
  37.             80 50 00 14 96 54 54 54 1B 80 4E 00 14 97 54 54 54 71 36 01 6A A4
  38.             36 01 6A A4 D6 AA D7 B0 D8 AD 73 02 73 03 D9 B0 6A 63 A8 23 06 35
  39.             A8 23 08 34 C8 EA DF 89 09 01 CA 14 73 02 89 09 2A 5B E1 B5 66 03
  40.             0E 59 01 14 6B 03 1F 5B B1 1A 3A AA 2D 01 19 03 95 54 54 53 1A FF
  41.             AA 96 54 54 54 53 1A FF AB C5 1A 4D C7 1A 4A 9A 1A 5B 8B 00 E3 5B
  42.             E4 AB 66 03 0E E5 6B 02 1F E6 AA E7 6B 02 1F 73 02 AB 77 CB 02 16
  43.             01 7A 00 92 20 60 16 01 A8 77 CC 00 D8 AF 73 02 AE 73 02 6B 02 20
  44.             31 04 1F 19 09
  45.            )
  46.       2. MACRO-CALL-ERROR TAGBODY WHEN GO CERROR 0. "Retry" 1.
  47.       "You may input a new value." "You may input new values." QUOTE "~A"
  48.       "~S must evaluate to a non-NIL value." FORMAT WRITE-STRING "~%New ~S: "
  49.       (*QUERY-IO*) SETF ((READ *QUERY-IO*))
  50.   )  )
  51. #Y(#:TOP-LEVEL-FORM-5
  52.    #45Y(00 00 00 00 00 01 D4 2D 01 D4 D6 C1 72 30 96 D8 2D 01 D8 D6 C3 72 30 96
  53.         DA 2D 01 DA D6 C5 72 30 96 DC 2D 01 DC D6 C7 72 30 96 C6 19 01
  54.        )
  55.    ETYPECASE REMOVE-OLD-DEFINITIONS MACRO
  56.    #Y(ETYPECASE
  57.       #36Y(00 01 00 01 00 08 AA 6A 63 D4 87 01 2D 11 94 54 70 95 54 71 D6 AA AA
  58.            AC AC C1 6C C2 32 19 05 AA 2D 01 19 03
  59.           )
  60.       2. MACRO-CALL-ERROR TYPECASE
  61.       #1=#Y(TYPECASE-ERRORSTRING
  62.             #19Y(00 02 00 00 00 03 5B D4 AC D5 AD 6B 00 17 2B 04 02 19 03)
  63.             "The value of ~S must be of one of the types ~{~S~^, ~}" #.#'FIRST
  64.             FORMAT
  65.            )
  66.       #2=#Y(SIMPLE-ERROR
  67.             #41Y(00 04 00 00 00 05 36 01 6A A4 D4 A9 AE 73 02 73 01 AF AB AF D5
  68.                  D6 D7 B2 B1 73 04 73 02 73 01 6B 02 20 6B 02 1F 59 03 19 06
  69.                 )
  70.             LET OTHERWISE ERROR "~A~%The value is: ~S"
  71.      )     )
  72.    CTYPECASE
  73.    #Y(CTYPECASE
  74.       #36Y(00 01 00 01 00 08 AA 6A 63 D4 87 01 2D 11 94 54 70 95 54 71 D6 AA AA
  75.            AC AC C1 6C C2 32 19 05 AA 2D 01 19 03
  76.           )
  77.       2. MACRO-CALL-ERROR TYPECASE #1#
  78.       #3=#Y(RETRY-LOOP
  79.             #70Y(00 04 00 00 00 05 36 01 6A A4 36 01 6A A4 D4 AA D5 AB D6 AE B4
  80.                  B4 B4 D7 D8 D9 DA B8 BB 73 05 DB 5B DC BB 66 03 09 DE 6B 02 1F
  81.                  DF BA E0 6B 02 1F E1 B6 73 02 73 05 73 01 6B 02 20 6B 02 1F 73
  82.                  03 73 03 59 03 19 07
  83.                 )
  84.             BLOCK TAGBODY RETURN-FROM OTHERWISE CERROR
  85.             "You may input a new value." "~A~%The value is: ~S" WRITE-STRING
  86.             "~%New ~S: " FORMAT (*QUERY-IO*) SETF ((READ *QUERY-IO*)) GO
  87.      )     )
  88.    ECASE
  89.    #Y(ECASE
  90.       #36Y(00 01 00 01 00 08 AA 6A 63 D4 87 01 2D 11 94 54 70 95 54 71 D6 AA AA
  91.            AC AC C1 6C C2 32 19 05 AA 2D 01 19 03
  92.           )
  93.       2. MACRO-CALL-ERROR CASE
  94.       #4=#Y(CASE-ERRORSTRING
  95.             #52Y(00 02 00 00 00 03 5B D4 AC 5B AD 1A 19 92 1A 0D 8B 00 A8 7E 00
  96.                  00 14 85 34 73 A8 59 01 EA AB 77 CA 02 16 01 7A 00 92 20 67 16
  97.                  01 A8 77 CC 00 2B 04 01 19 03
  98.                 )
  99.             "The value of ~S must be one of ~{~S~^, ~}" FORMAT
  100.            )
  101.       #2#
  102.      )
  103.    CCASE
  104.    #Y(CCASE
  105.       #36Y(00 01 00 01 00 08 AA 6A 63 D4 87 01 2D 11 94 54 70 95 54 71 D6 AA AA
  106.            AC AC C1 6C C2 32 19 05 AA 2D 01 19 03
  107.           )
  108.       2. MACRO-CALL-ERROR CASE #4# #3#
  109.   )  )
  110. #Y(#:TOP-LEVEL-FORM-6
  111.    #18Y(00 00 00 00 00 01 D4 2D 01 D4 D6 C1 72 30 96 BE 19 01) DEFTYPE
  112.    REMOVE-OLD-DEFINITIONS MACRO
  113.    #Y(DEFTYPE
  114.       #221Y(00 01 00 01 00 08 39 01 AA 6A 63 D4 87 01 2D 22 94 54 70 95 54 54
  115.             70 96 54 54 71 AA 86 2D 18 AA D7 36 01 85 98 07 AA D8 36 01 86 98
  116.             0D C3 14 AB 5A 01 AA 2D 01 19 03 C0 1A 74 A8 5C AE 2F 64 3E 03 8A
  117.             01 06 DA 94 72 59 01 EB C5 10 08 C5 10 09 00 10 0A 00 10 0B 00 10
  118.             0C CB 10 0E 5E 16 E3 5E 19 E4 2B 04 11 E4 67 12 E7 63 0B 6A 65 5E
  119.             16 63 0C 6A 65 5E 19 6B 03 20 6B 02 1F 8A 01 14 E8 AA E9 5D 16 5D
  120.             17 5E 1E 73 02 5D 18 6B 03 1F AB 59 04 EA 5D 19 5D 1A 5D 1B 5D 17
  121.             5E 1D 73 02 5D 1C 5D 1D 5D 1E 5E 20 69 4E 6B 02 13 69 F3 5D 1F 5D
  122.             20 B1 73 03 73 03 73 04 5D 21 5D 22 5D 17 5E 1F 73 02 5D 23 6B 02
  123.             1F 5D 17 5E 1A 73 02 73 03 5D 17 5E 1E 73 02 59 05 16 02 12 06 19
  124.             09
  125.            )
  126.       3. MACRO-CALL-ERROR "type name should be a symbol, not ~S" TYPE-SYMBOL
  127.       TYPE-LIST "~S is a built-in type and may not be redefined." DECLARE 0.
  128.       %ARG-COUNT %MIN-ARGS %RESTP %LET-LIST %KEYWORD-TESTS '* %DEFAULT-FORM
  129.       (CDR <DEFTYPE-FORM>) <DEFTYPE-FORM> ANALYZE1 MAKE-LENGTH-TEST LET* IF
  130.       ERROR "The deftype expander for ~S may not be called with ~S arguments."
  131.       QUOTE ((1- (LENGTH <DEFTYPE-FORM>))) EVAL-WHEN (COMPILE LOAD EVAL) %PUT
  132.       'DEFTYPE-EXPANDER FUNCTION "DEFTYPE-" LAMBDA (<DEFTYPE-FORM>) SETF
  133.       DOCUMENTATION ('TYPE)
  134.   )  )
  135. #Y(#:TOP-LEVEL-FORM-7
  136.    #18Y(00 00 00 00 00 01 D4 2D 01 D4 D6 C1 72 30 96 BE 19 01) TIME
  137.    REMOVE-OLD-DEFINITIONS MACRO
  138.    #Y(TIME
  139.       #78Y(00 01 00 01 00 08 AA 6A 63 D4 87 01 2C 3B 94 54 70 36 01 6A A4 36 01
  140.            6A A4 36 01 6A A4 36 01 6A A4 36 01 6A A4 36 01 6A A4 36 01 6A A4 36
  141.            01 6A A4 36 01 6A A4 73 09 D6 A9 D7 D8 AD D9 DA DB B0 6B 03 1F 73 03
  142.            59 04 19 05 AA 2D 01 19 03
  143.           )
  144.       2. MACRO-CALL-ERROR MULTIPLE-VALUE-BIND (%%TIME) UNWIND-PROTECT
  145.       MULTIPLE-VALUE-CALL #'%TIME (%%TIME)
  146.   )  )
  147. #Y(#:TOP-LEVEL-FORM-8
  148.    #18Y(00 00 00 00 00 01 D4 2D 01 D4 D6 C1 72 30 96 BE 19 01)
  149.    WITH-INPUT-FROM-STRING REMOVE-OLD-DEFINITIONS MACRO
  150.    #Y(WITH-INPUT-FROM-STRING
  151.       #199Y(00 01 00 01 00 08 39 01 AA 6A 63 D4 87 01 2D 80 84 94 54 53 70 95
  152.             54 53 54 70 96 54 53 54 71 A8 D6 63 03 6A 99 A8 0E 03 21 80 6F 02
  153.             14 AA D8 63 03 6A 99 A8 0E 03 21 80 66 02 14 AC DA 63 03 6A 99 A8
  154.             0E 03 21 80 5E 02 14 9D 54 71 AF DB 2F 65 A8 5B B5 2F 64 3E 02 8A
  155.             00 06 DC 93 72 59 01 EA DD B4 DE B5 89 09 80 49 89 07 80 45 00 14
  156.             6B 02 1F 73 02 73 01 AA DF E0 98 72 89 0C 3D 00 14 E3 BA 73 02 73
  157.             01 6B 02 20 6B 02 1F 73 01 6B 02 20 31 02 1F 19 0F AA 2D 01 19 03
  158.             74 00 1A FF 8D C3 EA 00 1A FF 95 74 00 1A FF 9E B1 59 01 55 1A FF
  159.             BC B2 89 08 75 00 55 1A FF B3 E1 B6 E2 BB 73 02 73 03 59 01 1A FF
  160.             B7
  161.            )
  162.       2. MACRO-CALL-ERROR :INDEX MACRO-MISSING-VALUE :START 0. :END
  163.       (:END :START :INDEX) DECLARE LET MAKE-STRING-INPUT-STREAM UNWIND-PROTECT
  164.       PROGN SETF STRING-INPUT-STREAM-INDEX CLOSE
  165.   )  )
  166. #Y(#:TOP-LEVEL-FORM-9
  167.    #18Y(00 00 00 00 00 01 D4 2D 01 D4 D6 C1 72 30 96 BE 19 01) WITH-OPEN-FILE
  168.    REMOVE-OLD-DEFINITIONS MACRO
  169.    #Y(WITH-OPEN-FILE
  170.       #96Y(00 01 00 01 00 08 39 01 AA 6A 63 D4 87 01 2D 80 4A 94 54 53 70 95 54
  171.            53 71 96 54 71 A8 5B AE 2F 64 3E 02 8A 00 06 D6 93 72 59 01 EA D7 AD
  172.            D8 98 72 73 02 73 01 AA D9 DA DB 99 72 DC B3 DD B5 73 02 73 03 73 03
  173.            DC B2 DD B4 DE 6B 02 1F 73 03 73 03 73 01 6B 02 20 31 02 1F 19 08 AA
  174.            2D 01 19 03
  175.           )
  176.       2. MACRO-CALL-ERROR DECLARE LET OPEN UNWIND-PROTECT MULTIPLE-VALUE-PROG1
  177.       PROGN WHEN CLOSE (:ABORT T)
  178.   )  )
  179. #Y(#:TOP-LEVEL-FORM-10
  180.    #18Y(00 00 00 00 00 01 D4 2D 01 D4 D6 C1 72 30 96 BE 19 01) WITH-OPEN-STREAM
  181.    REMOVE-OLD-DEFINITIONS MACRO
  182.    #Y(WITH-OPEN-STREAM
  183.       #87Y(00 01 00 01 00 08 39 01 AA 6A 63 D4 87 01 2D 80 41 94 54 53 70 95 54
  184.            53 54 70 96 54 71 A8 5B AE 2F 64 3E 02 8A 00 06 D6 93 72 59 01 EA D7
  185.            AD AD 73 02 73 01 AA D8 D9 DA 99 72 DB B3 73 02 73 03 DB B2 DC 6B 02
  186.            1F 73 03 73 01 6B 02 20 31 02 1F 19 08 AA 2D 01 19 03
  187.           )
  188.       2. MACRO-CALL-ERROR DECLARE LET UNWIND-PROTECT MULTIPLE-VALUE-PROG1 PROGN
  189.       CLOSE (:ABORT T)
  190.   )  )
  191. #Y(#:TOP-LEVEL-FORM-11
  192.    #18Y(00 00 00 00 00 01 D4 2D 01 D4 D6 C1 72 30 96 BE 19 01)
  193.    WITH-OUTPUT-TO-STRING REMOVE-OLD-DEFINITIONS MACRO
  194.    #Y(WITH-OUTPUT-TO-STRING
  195.       #127Y(00 01 00 01 00 08 39 01 AA 6A 63 D4 87 01 2D 80 48 94 54 53 70 95
  196.             54 53 54 1B 80 42 00 14 96 54 53 54 51 51 14 97 54 71 A8 5B AF 2F
  197.             64 3E 02 89 00 34 89 03 3A D7 AE C6 72 73 01 AA D9 DA AE DD B4 73
  198.             02 73 01 31 02 20 72 DB B3 73 02 73 03 73 01 6B 02 20 31 02 1F 19
  199.             09 AA 2D 01 19 03 95 54 53 54 53 1A FF B7 D6 93 72 59 01 EA 8A 03
  200.             46 D7 AE D8 AF 73 02 73 02 73 01 AA D9 DA 98 1A 49
  201.            )
  202.       2. MACRO-CALL-ERROR DECLARE LET MAKE-STRING-PUSH-STREAM UNWIND-PROTECT
  203.       PROGN CLOSE ((MAKE-STRING-OUTPUT-STREAM)) GET-OUTPUT-STREAM-STRING
  204.   )  )
  205. #Y(#:TOP-LEVEL-FORM-12 #13Y(00 00 00 00 00 01 D4 36 02 30 07 19 01) "LISP")
  206. #Y(#:TOP-LEVEL-FORM-13 #13Y(00 00 00 00 00 01 D4 36 01 2F FF 19 01)
  207.    WITH-OUTPUT-TO-PRINTER
  208.   )
  209. #Y(#:TOP-LEVEL-FORM-14 #13Y(00 00 00 00 00 01 D4 36 02 30 07 19 01) "SYSTEM")
  210. #Y(#:TOP-LEVEL-FORM-15
  211.    #18Y(00 00 00 00 00 01 D4 2D 01 D4 D6 C1 72 30 96 BE 19 01)
  212.    WITH-OUTPUT-TO-PRINTER REMOVE-OLD-DEFINITIONS MACRO
  213.    #Y(WITH-OUTPUT-TO-PRINTER
  214.       #38Y(00 01 00 01 00 08 AA 6A 63 D4 87 01 2D 13 94 54 53 70 95 54 71 D6 AA
  215.            C1 72 73 01 AA 31 02 1F 19 05 AA 2D 01 19 03
  216.           )
  217.       2. MACRO-CALL-ERROR LET (*PRINTER-OUTPUT*)
  218.   )  )